/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / mule / mule-charset.elc.z / mule-charset.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 73 74 65 76 65 40 61 |piled by| steve@a|
|00000020| 6c 74 61 69 72 2e 78 65 | 6d 61 63 73 2e 6f 72 67 |ltair.xe|macs.org|
|00000030| 20 6f 6e 20 54 68 75 20 | 4e 6f 76 20 32 30 20 31 | on Thu |Nov 20 1|
|00000040| 37 3a 34 30 3a 34 30 20 | 31 39 39 37 0a 3b 3b 3b |7:40:40 |1997.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 78 65 6d 61 63 73 2f | 32 30 2e 33 2f 78 65 6d |/xemacs/|20.3/xem|
|00000070| 61 63 73 2d 32 30 2e 33 | 2f 6c 69 73 70 2f 6d 75 |acs-20.3|/lisp/mu|
|00000080| 6c 65 2f 6d 75 6c 65 2d | 63 68 61 72 73 65 74 2e |le/mule-|charset.|
|00000090| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|000000a0| 73 69 6f 6e 20 32 30 2e | 33 20 22 56 61 74 69 63 |sion 20.|3 "Vatic|
|000000b0| 61 6e 20 43 69 74 79 22 | 20 58 45 6d 61 63 73 20 |an City"| XEmacs |
|000000c0| 20 4c 75 63 69 64 2e 0a | 3b 3b 3b 20 62 79 74 65 | Lucid..|;;; byte|
|000000d0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 32 2e 32 |comp ver|sion 2.2|
|000000e0| 35 20 58 45 6d 61 63 73 | 3b 20 32 32 2d 4d 61 72 |5 XEmacs|; 22-Mar|
|000000f0| 2d 39 36 2e 0a 3b 3b 3b | 20 6f 70 74 69 6d 69 7a |-96..;;;| optimiz|
|00000100| 61 74 69 6f 6e 20 69 73 | 20 6f 6e 2e 0a 3b 3b 3b |ation is| on..;;;|
|00000110| 20 74 68 69 73 20 66 69 | 6c 65 20 75 73 65 73 20 | this fi|le uses |
|00000120| 6f 70 63 6f 64 65 73 20 | 77 68 69 63 68 20 64 6f |opcodes |which do|
|00000130| 20 6e 6f 74 20 65 78 69 | 73 74 20 69 6e 20 45 6d | not exi|st in Em|
|00000140| 61 63 73 20 31 39 2e 0a | 0a 28 69 66 20 28 61 6e |acs 19..|.(if (an|
|00000150| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 6d 61 63 73 |d (bound|p 'emacs|
|00000160| 2d 76 65 72 73 69 6f 6e | 29 0a 09 20 28 6f 72 20 |-version|).. (or |
|00000170| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 70 |(and (bo|undp 'ep|
|00000180| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 20 65 70 |och::ver|sion) ep|
|00000190| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 0a 09 20 |och::ver|sion).. |
|000001a0| 20 20 20 20 28 73 74 72 | 69 6e 67 2d 6c 65 73 73 |    (str|ing-less|
|000001b0| 70 20 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 |p emacs-|version |
|000001c0| 22 32 30 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |"20"))).|    (err|
|000001d0| 6f 72 20 22 60 6d 75 6c | 65 2d 63 68 61 72 73 65 |or "`mul|e-charse|
|000001e0| 74 2e 65 6c 27 20 77 61 | 73 20 63 6f 6d 70 69 6c |t.el' wa|s compil|
|000001f0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 32 30 22 |ed for E|macs 20"|
|00000200| 29 29 0a 0a 28 6f 72 20 | 28 62 6f 75 6e 64 70 20 |))..(or |(boundp |
|00000210| 27 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 |'current|-load-li|
|00000220| 73 74 29 20 28 73 65 74 | 71 20 63 75 72 72 65 6e |st) (set|q curren|
|00000230| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 6e 69 6c 29 |t-load-l|ist nil)|
|00000240| 29 0a 0a 0a 23 40 32 33 | 35 20 43 6f 6d 70 6f 73 |)...#@23|5 Compos|
|00000250| 65 20 63 68 61 72 61 63 | 74 65 72 73 20 69 6e 20 |e charac|ters in |
|00000260| 74 68 65 20 63 75 72 72 | 65 6e 74 20 72 65 67 69 |the curr|ent regi|
|00000270| 6f 6e 20 69 6e 74 6f 20 | 6f 6e 65 20 63 6f 6d 70 |on into |one comp|
|00000280| 6f 73 69 74 65 20 63 68 | 61 72 61 63 74 65 72 2e |osite ch|aracter.|
|00000290| 0a 46 72 6f 6d 20 61 20 | 4c 69 73 70 20 70 72 6f |.From a |Lisp pro|
|000002a0| 67 72 61 6d 2c 20 70 61 | 73 73 20 74 77 6f 20 61 |gram, pa|ss two a|
|000002b0| 72 67 75 6d 65 6e 74 73 | 2c 20 53 54 41 52 54 20 |rguments|, START |
|000002c0| 74 6f 20 45 4e 44 2e 0a | 54 68 65 20 63 6f 6d 70 |to END..|The comp|
|000002d0| 6f 73 69 74 65 20 63 68 | 61 72 61 63 74 65 72 20 |osite ch|aracter |
|000002e0| 72 65 70 6c 61 63 65 73 | 20 74 68 65 20 63 6f 6d |replaces| the com|
|000002f0| 70 6f 73 65 64 20 63 68 | 61 72 61 63 74 65 72 73 |posed ch|aracters|
|00000300| 2e 0a 42 55 46 46 45 52 | 20 64 65 66 61 75 6c 74 |..BUFFER| default|
|00000310| 73 20 74 6f 20 74 68 65 | 20 63 75 72 72 65 6e 74 |s to the| current|
|00000320| 20 62 75 66 66 65 72 20 | 69 66 20 6f 6d 69 74 74 | buffer |if omitt|
|00000330| 65 64 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ed...(de|falias '|
|00000340| 63 6f 6d 70 6f 73 65 2d | 72 65 67 69 6f 6e 20 23 |compose-|region #|
|00000350| 5b 28 73 74 61 72 74 20 | 65 6e 64 20 26 6f 70 74 |[(start |end &opt|
|00000360| 69 6f 6e 61 6c 20 62 75 | 66 66 65 72 29 20 22 c0 |ional bu|ffer) ".|
|00000370| c1 5c 6e 0b 0c 23 21 1d | c6 5c 6e 0b 0c 23 88 c7 |.\n..#!.|.\n..#..|
|00000380| 0d c8 89 0c 24 29 87 22 | 20 5b 6d 61 6b 65 2d 63 |....$)."| [make-c|
|00000390| 6f 6d 70 6f 73 69 74 65 | 2d 63 68 61 72 20 62 75 |omposite|-char bu|
|000003a0| 66 66 65 72 2d 73 75 62 | 73 74 72 69 6e 67 20 73 |ffer-sub|string s|
|000003b0| 74 61 72 74 20 65 6e 64 | 20 62 75 66 66 65 72 20 |tart end| buffer |
|000003c0| 63 68 20 64 65 6c 65 74 | 65 2d 72 65 67 69 6f 6e |ch delet|e-region|
|000003d0| 20 69 6e 73 65 72 74 2d | 63 68 61 72 20 6e 69 6c | insert-|char nil|
|000003e0| 5d 20 35 20 28 23 24 20 | 2e 20 35 38 36 29 20 22 |] 5 (#$ |. 586) "|
|000003f0| 72 22 5d 29 0a 23 40 33 | 34 39 20 44 65 63 6f 6d |r"]).#@3|49 Decom|
|00000400| 70 6f 73 65 20 61 6e 79 | 20 63 6f 6d 70 6f 73 69 |pose any| composi|
|00000410| 74 65 20 63 68 61 72 61 | 63 74 65 72 73 20 69 6e |te chara|cters in|
|00000420| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 72 65 67 | the cur|rent reg|
|00000430| 69 6f 6e 2e 0a 46 72 6f | 6d 20 61 20 4c 69 73 70 |ion..Fro|m a Lisp|
|00000440| 20 70 72 6f 67 72 61 6d | 2c 20 70 61 73 73 20 74 | program|, pass t|
|00000450| 77 6f 20 61 72 67 75 6d | 65 6e 74 73 2c 20 53 54 |wo argum|ents, ST|
|00000460| 41 52 54 20 74 6f 20 45 | 4e 44 2e 0a 54 68 69 73 |ART to E|ND..This|
|00000470| 20 63 6f 6e 76 65 72 74 | 73 20 65 61 63 68 20 63 | convert|s each c|
|00000480| 6f 6d 70 6f 73 69 74 65 | 20 63 68 61 72 61 63 74 |omposite| charact|
|00000490| 65 72 20 69 6e 74 6f 20 | 6f 6e 65 20 6f 72 20 6d |er into |one or m|
|000004a0| 6f 72 65 20 63 68 61 72 | 61 63 74 65 72 73 2c 0a |ore char|acters,.|
|000004b0| 74 68 65 20 69 6e 64 69 | 76 69 64 75 61 6c 20 63 |the indi|vidual c|
|000004c0| 68 61 72 61 63 74 65 72 | 73 20 6f 75 74 20 6f 66 |haracter|s out of|
|000004d0| 20 77 68 69 63 68 20 74 | 68 65 20 63 6f 6d 70 6f | which t|he compo|
|000004e0| 73 69 74 65 20 63 68 61 | 72 61 63 74 65 72 20 77 |site cha|racter w|
|000004f0| 61 73 20 66 6f 72 6d 65 | 64 2e 0a 4e 6f 6e 2d 63 |as forme|d..Non-c|
|00000500| 6f 6d 70 6f 73 69 74 65 | 20 63 68 61 72 61 63 74 |omposite| charact|
|00000510| 65 72 73 20 61 72 65 20 | 6c 65 66 74 20 61 73 2d |ers are |left as-|
|00000520| 69 73 2e 20 20 42 55 46 | 46 45 52 20 64 65 66 61 |is.  BUF|FER defa|
|00000530| 75 6c 74 73 20 74 6f 20 | 74 68 65 20 63 75 72 72 |ults to |the curr|
|00000540| 65 6e 74 0a 62 75 66 66 | 65 72 20 69 66 20 6f 6d |ent.buff|er if om|
|00000550| 69 74 74 65 64 2e 1f 0a | 28 64 65 66 61 6c 69 61 |itted...|(defalia|
|00000560| 73 20 27 64 65 63 6f 6d | 70 6f 73 65 2d 72 65 67 |s 'decom|pose-reg|
|00000570| 69 6f 6e 20 23 5b 28 73 | 74 61 72 74 20 65 6e 64 |ion #[(s|tart end|
|00000580| 20 26 6f 70 74 69 6f 6e | 61 6c 20 62 75 66 66 65 | &option|al buffe|
|00000590| 72 29 20 22 8a 08 71 88 | 8c 09 5c 6e 7d 88 65 62 |r) "..q.|..\n}.eb|
|000005a0| 88 c3 c4 21 1d 60 64 57 | ad 99 60 66 1e 06 0d c7 |...!.`dW|..`f....|
|000005b0| 0e 06 21 61 ab 8a c8 c9 | 21 88 ca 0e 06 21 63 88 |..!a....|!....!c.|
|000005c0| 29 aa 62 2b 87 22 20 5b | 62 75 66 66 65 72 20 73 |).b+." [|buffer s|
|000005d0| 74 61 72 74 20 65 6e 64 | 20 67 65 74 2d 63 68 61 |tart end| get-cha|
|000005e0| 72 73 65 74 20 63 6f 6d | 70 6f 73 69 74 65 20 63 |rset com|posite c|
|000005f0| 6f 6d 70 63 68 61 72 73 | 65 74 20 63 68 20 63 68 |ompchars|et ch ch|
|00000600| 61 72 2d 63 68 61 72 73 | 65 74 20 64 65 6c 65 74 |ar-chars|et delet|
|00000610| 65 2d 63 68 61 72 20 31 | 20 63 6f 6d 70 6f 73 69 |e-char 1| composi|
|00000620| 74 65 2d 63 68 61 72 2d | 73 74 72 69 6e 67 5d 20 |te-char-|string] |
|00000630| 33 20 28 23 24 20 2e 20 | 31 30 31 39 29 20 22 72 |3 (#$ . |1019) "r|
|00000640| 22 5d 29 0a 23 40 31 31 | 38 20 52 65 74 75 72 6e |"]).#@11|8 Return|
|00000650| 20 61 20 6c 69 73 74 20 | 6f 66 20 74 68 65 20 63 | a list |of the c|
|00000660| 68 61 72 73 65 74 73 20 | 69 6e 20 74 68 65 20 72 |harsets |in the r|
|00000670| 65 67 69 6f 6e 20 62 65 | 74 77 65 65 6e 20 53 54 |egion be|tween ST|
|00000680| 41 52 54 20 61 6e 64 20 | 45 4e 44 2e 0a 42 55 46 |ART and |END..BUF|
|00000690| 46 45 52 20 64 65 66 61 | 75 6c 74 73 20 74 6f 20 |FER defa|ults to |
|000006a0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|000006b0| 65 72 20 69 66 20 6f 6d | 69 74 74 65 64 2e 1f 0a |er if om|itted...|
|000006c0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 68 61 72 73 |(defalia|s 'chars|
|000006d0| 65 74 73 2d 69 6e 2d 72 | 65 67 69 6f 6e 20 23 5b |ets-in-r|egion #[|
|000006e0| 28 73 74 61 72 74 20 65 | 6e 64 20 26 6f 70 74 69 |(start e|nd &opti|
|000006f0| 6f 6e 61 6c 20 62 75 66 | 66 65 72 29 20 22 c0 19 |onal buf|fer) "..|
|00000700| 8a 5c 6e ab 83 5c 6e 71 | 88 8c 0b 0c 7d 88 65 62 |.\n..\nq|....}.eb|
|00000710| 88 6d ac a6 c0 1d 60 66 | 1e 06 c7 0e 06 21 1e 08 |.m....`f|.....!..|
|00000720| 0d 0e 08 61 ac 8e 0e 08 | 15 0e 08 09 73 ac 85 0e |...a....|....s...|
|00000730| 08 09 42 11 2b c0 75 88 | aa 57 2a 09 29 87 22 20 |..B.+.u.|.W*.)." |
|00000740| 5b 6e 69 6c 20 6c 69 73 | 74 20 62 75 66 66 65 72 |[nil lis|t buffer|
|00000750| 20 73 74 61 72 74 20 65 | 6e 64 20 70 72 65 76 2d | start e|nd prev-|
|00000760| 63 68 61 72 73 65 74 20 | 63 68 20 63 68 61 72 2d |charset |ch char-|
|00000770| 63 68 61 72 73 65 74 20 | 63 68 61 72 73 65 74 5d |charset |charset]|
|00000780| 20 32 20 28 23 24 20 2e | 20 31 36 31 30 29 5d 29 | 2 (#$ .| 1610)])|
|00000790| 0a 23 40 34 32 20 52 65 | 74 75 72 6e 20 61 20 6c |.#@42 Re|turn a l|
|000007a0| 69 73 74 20 6f 66 20 74 | 68 65 20 63 68 61 72 73 |ist of t|he chars|
|000007b0| 65 74 73 20 69 6e 20 53 | 54 52 49 4e 47 2e 1f 0a |ets in S|TRING...|
|000007c0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 68 61 72 73 |(defalia|s 'chars|
|000007d0| 65 74 73 2d 69 6e 2d 73 | 74 72 69 6e 67 20 23 5b |ets-in-s|tring #[|
|000007e0| 28 73 74 72 69 6e 67 29 | 20 22 c0 09 47 c2 89 89 |(string)| "..G...|
|000007f0| 1b 1c 1d 1e 06 89 1e 07 | 0e 06 57 ab 9f c8 09 0e |........|..W.....|
|00000800| 07 48 21 14 0d 0c 61 ac | 8b 0c 15 0c 0b 73 ac 84 |.H!...a.|.....s..|
|00000810| 0c 0b 42 13 0e 07 54 89 | 16 07 aa 5c 5c 0b 2d 87 |..B...T.|...\\.-.|
|00000820| 22 20 5b 30 20 73 74 72 | 69 6e 67 20 6e 69 6c 20 |" [0 str|ing nil |
|00000830| 6c 69 73 74 20 63 68 61 | 72 73 65 74 20 70 72 65 |list cha|rset pre|
|00000840| 76 2d 63 68 61 72 73 65 | 74 20 6c 65 6e 20 69 20 |v-charse|t len i |
|00000850| 63 68 61 72 2d 63 68 61 | 72 73 65 74 5d 20 36 20 |char-cha|rset] 6 |
|00000860| 28 23 24 20 2e 20 31 39 | 34 32 29 5d 29 0a 23 40 |(#$ . 19|42)]).#@|
|00000870| 36 33 20 52 65 74 75 72 | 6e 20 74 68 65 20 60 67 |63 Retur|n the `g|
|00000880| 72 61 70 68 69 63 27 20 | 70 72 6f 70 65 72 74 79 |raphic' |property|
|00000890| 20 6f 66 20 43 48 41 52 | 53 45 54 2e 0a 53 65 65 | of CHAR|SET..See|
|000008a0| 20 60 6d 61 6b 65 2d 63 | 68 61 72 73 65 74 27 2e | `make-c|harset'.|
|000008b0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 68 61 |..(defal|ias 'cha|
|000008c0| 72 73 65 74 2d 67 72 61 | 70 68 69 63 20 23 5b 28 |rset-gra|phic #[(|
|000008d0| 63 68 61 72 73 65 74 29 | 20 22 c0 09 c2 5c 22 87 |charset)| "...\".|
|000008e0| 22 20 5b 63 68 61 72 73 | 65 74 2d 70 72 6f 70 65 |" [chars|et-prope|
|000008f0| 72 74 79 20 63 68 61 72 | 73 65 74 20 67 72 61 70 |rty char|set grap|
|00000900| 68 69 63 5d 20 33 20 28 | 23 24 20 2e 20 32 31 36 |hic] 3 (|#$ . 216|
|00000910| 33 29 5d 29 0a 23 40 37 | 36 20 52 65 74 75 72 6e |3)]).#@7|6 Return|
|00000920| 20 74 68 65 20 66 69 6e | 61 6c 20 62 79 74 65 20 | the fin|al byte |
|00000930| 6f 66 20 74 68 65 20 49 | 53 4f 20 32 30 32 32 20 |of the I|SO 2022 |
|00000940| 65 73 63 61 70 65 20 73 | 65 71 75 65 6e 63 65 20 |escape s|equence |
|00000950| 64 65 73 69 67 6e 61 74 | 69 6e 67 20 43 48 41 52 |designat|ing CHAR|
|00000960| 53 45 54 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |SET...(d|efalias |
|00000970| 27 63 68 61 72 73 65 74 | 2d 66 69 6e 61 6c 20 23 |'charset|-final #|
|00000980| 5b 28 63 68 61 72 73 65 | 74 29 20 22 c0 09 c2 5c |[(charse|t) "...\|
|00000990| 22 87 22 20 5b 63 68 61 | 72 73 65 74 2d 70 72 6f |"." [cha|rset-pro|
|000009a0| 70 65 72 74 79 20 63 68 | 61 72 73 65 74 20 66 69 |perty ch|arset fi|
|000009b0| 6e 61 6c 5d 20 33 20 28 | 23 24 20 2e 20 32 33 33 |nal] 3 (|#$ . 233|
|000009c0| 30 29 5d 29 0a 23 40 35 | 39 20 52 65 74 75 72 6e |0)]).#@5|9 Return|
|000009d0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|000009e0| 68 61 72 61 63 74 65 72 | 73 20 70 65 72 20 64 69 |haracter|s per di|
|000009f0| 6d 65 6e 73 69 6f 6e 20 | 6f 66 20 43 48 41 52 53 |mension |of CHARS|
|00000a00| 45 54 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ET...(de|falias '|
|00000a10| 63 68 61 72 73 65 74 2d | 63 68 61 72 73 20 23 5b |charset-|chars #[|
|00000a20| 28 63 68 61 72 73 65 74 | 29 20 22 c0 09 c2 5c 22 |(charset|) "...\"|
|00000a30| 87 22 20 5b 63 68 61 72 | 73 65 74 2d 70 72 6f 70 |." [char|set-prop|
|00000a40| 65 72 74 79 20 63 68 61 | 72 73 65 74 20 63 68 61 |erty cha|rset cha|
|00000a50| 72 73 5d 20 33 20 28 23 | 24 20 2e 20 32 35 30 36 |rs] 3 (#|$ . 2506|
|00000a60| 29 5d 29 0a 23 40 31 36 | 33 20 52 65 74 75 72 6e |)]).#@16|3 Return|
|00000a70| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 64 | the num|ber of d|
|00000a80| 69 73 70 6c 61 79 20 63 | 6f 6c 75 6d 6e 73 20 70 |isplay c|olumns p|
|00000a90| 65 72 20 63 68 61 72 61 | 63 74 65 72 20 6f 66 20 |er chara|cter of |
|00000aa0| 43 48 41 52 53 45 54 2e | 0a 54 68 69 73 20 6f 6e |CHARSET.|.This on|
|00000ab0| 6c 79 20 61 70 70 6c 69 | 65 73 20 74 6f 20 54 54 |ly appli|es to TT|
|00000ac0| 59 20 6d 6f 64 65 20 28 | 75 6e 64 65 72 20 58 2c |Y mode (|under X,|
|00000ad0| 20 74 68 65 20 61 63 74 | 75 61 6c 20 64 69 73 70 | the act|ual disp|
|00000ae0| 6c 61 79 20 77 69 64 74 | 68 20 63 61 6e 0a 62 65 |lay widt|h can.be|
|00000af0| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 20 64 | automat|ically d|
|00000b00| 65 74 65 72 6d 69 6e 65 | 64 29 2e 1f 0a 28 64 65 |etermine|d)...(de|
|00000b10| 66 61 6c 69 61 73 20 27 | 63 68 61 72 73 65 74 2d |falias '|charset-|
|00000b20| 63 6f 6c 75 6d 6e 73 20 | 23 5b 28 63 68 61 72 73 |columns |#[(chars|
|00000b30| 65 74 29 20 22 c0 09 c2 | 5c 22 87 22 20 5b 63 68 |et) "...|\"." [ch|
|00000b40| 61 72 73 65 74 2d 70 72 | 6f 70 65 72 74 79 20 63 |arset-pr|operty c|
|00000b50| 68 61 72 73 65 74 20 63 | 6f 6c 75 6d 6e 73 5d 20 |harset c|olumns] |
|00000b60| 33 20 28 23 24 20 2e 20 | 32 36 36 36 29 5d 29 0a |3 (#$ . |2666)]).|
|00000b70| 23 40 35 39 20 52 65 74 | 75 72 6e 20 74 68 65 20 |#@59 Ret|urn the |
|00000b80| 64 69 73 70 6c 61 79 20 | 64 69 72 65 63 74 69 6f |display |directio|
|00000b90| 6e 20 28 60 6c 32 72 27 | 20 6f 72 20 60 72 32 6c |n (`l2r'| or `r2l|
|00000ba0| 27 29 20 6f 66 20 43 48 | 41 52 53 45 54 2e 1f 0a |') of CH|ARSET...|
|00000bb0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 68 61 72 73 |(defalia|s 'chars|
|00000bc0| 65 74 2d 64 69 72 65 63 | 74 69 6f 6e 20 23 5b 28 |et-direc|tion #[(|
|00000bd0| 63 68 61 72 73 65 74 29 | 20 22 c0 09 c2 5c 22 87 |charset)| "...\".|
|00000be0| 22 20 5b 63 68 61 72 73 | 65 74 2d 70 72 6f 70 65 |" [chars|et-prope|
|00000bf0| 72 74 79 20 63 68 61 72 | 73 65 74 20 64 69 72 65 |rty char|set dire|
|00000c00| 63 74 69 6f 6e 5d 20 33 | 20 28 23 24 20 2e 20 32 |ction] 3| (#$ . 2|
|00000c10| 39 33 33 29 5d 29 0a 23 | 40 31 34 33 20 52 65 74 |933)]).#|@143 Ret|
|00000c20| 75 72 6e 20 74 68 65 20 | 72 65 67 69 73 74 72 79 |urn the |registry|
|00000c30| 20 6f 66 20 43 48 41 52 | 53 45 54 2e 0a 54 68 69 | of CHAR|SET..Thi|
|00000c40| 73 20 69 73 20 61 20 72 | 65 67 75 6c 61 72 20 65 |s is a r|egular e|
|00000c50| 78 70 72 65 73 73 69 6f | 6e 20 6d 61 74 63 68 69 |xpressio|n matchi|
|00000c60| 6e 67 20 74 68 65 20 72 | 65 67 69 73 74 72 79 20 |ng the r|egistry |
|00000c70| 66 69 65 6c 64 20 6f 66 | 20 66 6f 6e 74 73 0a 74 |field of| fonts.t|
|00000c80| 68 61 74 20 63 61 6e 20 | 64 69 73 70 6c 61 79 20 |hat can |display |
|00000c90| 74 68 65 20 63 68 61 72 | 61 63 74 65 72 73 20 69 |the char|acters i|
|00000ca0| 6e 20 43 48 41 52 53 45 | 54 2e 1f 0a 28 64 65 66 |n CHARSE|T...(def|
|00000cb0| 61 6c 69 61 73 20 27 63 | 68 61 72 73 65 74 2d 72 |alias 'c|harset-r|
|00000cc0| 65 67 69 73 74 72 79 20 | 23 5b 28 63 68 61 72 73 |egistry |#[(chars|
|00000cd0| 65 74 29 20 22 c0 09 c2 | 5c 22 87 22 20 5b 63 68 |et) "...|\"." [ch|
|00000ce0| 61 72 73 65 74 2d 70 72 | 6f 70 65 72 74 79 20 63 |arset-pr|operty c|
|00000cf0| 68 61 72 73 65 74 20 72 | 65 67 69 73 74 72 79 5d |harset r|egistry]|
|00000d00| 20 33 20 28 23 24 20 2e | 20 33 31 30 31 29 5d 29 | 3 (#$ .| 3101)])|
|00000d10| 0a 23 40 35 36 20 52 65 | 74 75 72 6e 20 74 68 65 |.#@56 Re|turn the|
|00000d20| 20 43 43 4c 20 70 72 6f | 67 72 61 6d 20 6f 66 20 | CCL pro|gram of |
|00000d30| 43 48 41 52 53 45 54 2e | 0a 53 65 65 20 60 6d 61 |CHARSET.|.See `ma|
|00000d40| 6b 65 2d 63 68 61 72 73 | 65 74 27 2e 1f 0a 28 64 |ke-chars|et'...(d|
|00000d50| 65 66 61 6c 69 61 73 20 | 27 63 68 61 72 73 65 74 |efalias |'charset|
|00000d60| 2d 63 63 6c 2d 70 72 6f | 67 72 61 6d 20 23 5b 28 |-ccl-pro|gram #[(|
|00000d70| 63 68 61 72 73 65 74 29 | 20 22 c0 09 c2 5c 22 87 |charset)| "...\".|
|00000d80| 22 20 5b 63 68 61 72 73 | 65 74 2d 70 72 6f 70 65 |" [chars|et-prope|
|00000d90| 72 74 79 20 63 68 61 72 | 73 65 74 20 63 63 6c 2d |rty char|set ccl-|
|00000da0| 70 72 6f 67 72 61 6d 5d | 20 33 20 28 23 24 20 2e |program]| 3 (#$ .|
|00000db0| 20 33 33 35 30 29 5d 29 | 0a 28 62 79 74 65 2d 63 | 3350)])|.(byte-c|
|00000dc0| 6f 64 65 20 22 c0 c1 c2 | c3 23 88 c0 c4 c2 c5 23 |ode "...|.#.....#|
|00000dd0| 87 22 20 5b 70 75 74 20 | 63 68 61 72 73 65 74 2d |." [put |charset-|
|00000de0| 72 65 67 69 73 74 72 79 | 20 73 65 74 66 2d 6d 65 |registry| setf-me|
|00000df0| 74 68 6f 64 20 23 5b 28 | 26 72 65 73 74 20 61 72 |thod #[(|&rest ar|
|00000e00| 67 73 29 20 22 c0 c1 5c | 6e 5c 22 1b c1 c4 21 1d |gs) "..\|n\"...!.|
|00000e10| 0b 5c 6e 0d 43 0b 1a 0d | 1e 06 c7 c8 5c 6e 0e 06 |.\n.C...|....\n..|
|00000e20| 43 5c 22 2a 42 c9 0b 42 | af 05 2a 87 22 20 5b 6d |C\"*B..B|..*." [m|
|00000e30| 61 70 63 61 72 20 67 65 | 6e 73 79 6d 20 61 72 67 |apcar ge|nsym arg|
|00000e40| 73 20 2d 2d 61 72 67 73 | 2d 2d 74 65 6d 70 2d 2d |s --args|--temp--|
|00000e50| 20 22 2d 2d 73 74 6f 72 | 65 2d 2d 22 20 2d 2d 73 | "--stor|e--" --s|
|00000e60| 74 6f 72 65 2d 2d 74 65 | 6d 70 2d 2d 20 73 74 6f |tore--te|mp-- sto|
|00000e70| 72 65 20 73 65 74 2d 63 | 68 61 72 73 65 74 2d 72 |re set-c|harset-r|
|00000e80| 65 67 69 73 74 72 79 20 | 61 70 70 65 6e 64 20 63 |egistry |append c|
|00000e90| 68 61 72 73 65 74 2d 72 | 65 67 69 73 74 72 79 5d |harset-r|egistry]|
|00000ea0| 20 37 5d 20 63 68 61 72 | 73 65 74 2d 63 63 6c 2d | 7] char|set-ccl-|
|00000eb0| 70 72 6f 67 72 61 6d 20 | 23 5b 28 26 72 65 73 74 |program |#[(&rest|
|00000ec0| 20 61 72 67 73 29 20 22 | c0 c1 5c 6e 5c 22 1b c1 | args) "|..\n\"..|
|00000ed0| c4 21 1d 0b 5c 6e 0d 43 | 0b 1a 0d 1e 06 c7 c8 5c |.!..\n.C|.......\|
|00000ee0| 6e 0e 06 43 5c 22 2a 42 | c9 0b 42 af 05 2a 87 22 |n..C\"*B|..B..*."|
|00000ef0| 20 5b 6d 61 70 63 61 72 | 20 67 65 6e 73 79 6d 20 | [mapcar| gensym |
|00000f00| 61 72 67 73 20 2d 2d 61 | 72 67 73 2d 2d 74 65 6d |args --a|rgs--tem|
|00000f10| 70 2d 2d 20 22 2d 2d 73 | 74 6f 72 65 2d 2d 22 20 |p-- "--s|tore--" |
|00000f20| 2d 2d 73 74 6f 72 65 2d | 2d 74 65 6d 70 2d 2d 20 |--store-|-temp-- |
|00000f30| 73 74 6f 72 65 20 73 65 | 74 2d 63 68 61 72 73 65 |store se|t-charse|
|00000f40| 74 2d 63 63 6c 2d 70 72 | 6f 67 72 61 6d 20 61 70 |t-ccl-pr|ogram ap|
|00000f50| 70 65 6e 64 20 63 68 61 | 72 73 65 74 2d 63 63 6c |pend cha|rset-ccl|
|00000f60| 2d 70 72 6f 67 72 61 6d | 5d 20 37 5d 5d 20 34 29 |-program|] 7]] 4)|
|00000f70| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+